home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / internet / LorenzHTMLTool / _SETUP.1 / Scrolling Banner.scp < prev    next >
Text File  |  1998-04-12  |  707b  |  32 lines
  1. <HTMLtool>Simple scolling banner</HTMLtool>
  2. <!-- This is a typical scrolling banner -->
  3. <SCRIPT LANGUAGE="JavaScript">
  4.  
  5. var id,pause=0,position=0,revol=9;
  6.  
  7. function banner() 
  8. {
  9.   var i,k;
  10.   var msg="                                    Your text goes here                                          ";
  11.   var speed=10;
  12.   document.thisform.mybanner.value=msg.substring(position,position+50);
  13.  
  14.   if(position++==msg.length) 
  15.   {
  16.       if (revol-- < 2) return;
  17.       position=0;
  18.   }
  19.  
  20.   id=setTimeout("banner()",1000/speed);
  21. }
  22.  
  23. </SCRIPT>
  24.  
  25. </HEAD>
  26. <BODY BGCOLOR="ffffff" ONLOAD="banner()">
  27. <CENTER><FORM NAME="thisform">
  28.  
  29. <INPUT TYPE="text" NAME="mybanner" SIZE="40">
  30. </FORM>
  31. </CENTER>
  32.